home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tool-inc.zip / PATTERN.INT < prev    next >
Text File  |  1989-06-02  |  188b  |  5 lines
  1. {$DEFINE PATTERN_MATCH}
  2. function wildcard_match (var pattern,
  3.                          line:               string65): boolean;
  4. {pattern must be upper case; line is not case sensitive}
  5.